Carga de paquetes

# Paquete para manipulación de datos
library(dplyr)

# Paquete para manejo de datos vectoriales
library(sf)

# Paquetes para manejo de datos raster
library(terra)

# Paquete para mapas interactivos
library(leaflet)

#paquete para manejo de tablas
library(DT)

#Paquete para graficación
library(ggplot2)

library(plotly)

Carga de datos

#Lectura datos zonas
zonas <-
  st_read("https://raw.githubusercontent.com/mauguemu/Proyecto_1_documento/master/Capas/zonas_wgs84.geojson",
    quiet = TRUE
  )

#Lectura datos cuadrantes
cuadrantes <-
  st_read("https://raw.githubusercontent.com/mauguemu/Proyecto_1_documento/master/Capas/cuadrantes_wgs84.geojson",
    quiet = TRUE
  )

#Lectura datos recursos patimoniales  
recursos_patrimoniales <-
  st_read("https://raw.githubusercontent.com/mauguemu/Proyecto_1_documento/master/Capas/recursos_patrimonio_wgs84.geojson",
    quiet = TRUE
  )

#Lectura patrimonio_material

patrimonio_material <-
  st_read(
    "/vsicurl/https://raw.githubusercontent.com/mauguemu/Proyecto_1_documento/master/Tablas/patrimonio_material_1.csv",
   quiet = TRUE
  )

#lectura patrimonio_inmaterial
patrimonio_inmaterial <-
  st_read(
    "/vsicurl/https://raw.githubusercontent.com/mauguemu/Proyecto_1_documento/master/Tablas/patrimonio_inmaterial.csv",
   quiet = TRUE
  )

Tablas

patrimonio_material%>%
  select(id_recurso, denominacion, subcategoria, estado_conservacion)%>%
  datatable()
patrimonio_inmaterial%>%
  select(id_recurso, Denominacion, Subcategoria, Alcance)%>%
  datatable()

#Gráficos

##Gráficos

patrimonio_material %>%
  group_by(estado_conservacion) %>%
  summarize(suma_registros = n()) %>%
  filter(!is.na(estado_conservacion))  %>%
  plot_ly(x = ~ estado_conservacion,
          y = ~ suma_registros,
          type="bar",color = I("darkgreen")) %>%
  layout(title = "Estado de conservación",
         xaxis = list(title = "Estado de conservación"),
         yaxis = list(title = "Cantidad de registros"))
patrimonio_material %>%
  group_by(declaratoria) %>%
  summarize(suma_registros = n()) %>%
  filter(!is.na(declaratoria))  %>%
  plot_ly(x = ~ declaratoria,
          y = ~ suma_registros,
          type="bar",color = I("blue")) %>%
  layout(title = "Recursos con figura de protección legal",
         xaxis = list(title = "Declaratoria"),
         yaxis = list(title = "Cantidad de registros"))